home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00343.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  662 b   |  17 lines
  1. on filltemplate templatelist, textline, mydelimiter
  2.   set delimiter to default(the itemDelimiter, mydelimiter)
  3.   delpush(delimiter)
  4.   if the number of items in textline <> count(templatelist) then
  5.     set error to "The number of items in the line starting '" & char 1 to 20 of textline & "...' doesn't match the template count (currently " & count(templatelist) & " items)."
  6.     return error
  7.   end if
  8.   set filledlist to [:]
  9.   repeat with index = 1 to the number of items in textline
  10.     set prop to getPropAt(templatelist, index)
  11.     set prop to symbol(prop)
  12.     addProp(filledlist, prop, item index of textline)
  13.   end repeat
  14.   return filledlist
  15.   delpop()
  16. end
  17.